10 SA=828
20 FORI=SATOSA+35:READA:POKEI,A:CK=CK+A:NEXT
30 IF CK<>4252 THEN PRINT"ERROR IN DATA":STOP
40 POKE786,SA/256:POKE785,SA-(PEEK(786)*256)
45 GOTO 100
50 DATA 32,247,183,165,100,133,252,165
60 DATA 101,133,251,160,0,120,165,1
70 DATA 41,252,133,1,177,251,168,165
80 DATA 1,9,3,133,1,88,169,0
90 DATA 32,145,179,96
100 POKE 63000,1
110 PRINT"[147]ROM=";PEEK(63000)
120 PRINT"RAM=";USR(63000)